home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 2 / MacMania 2.toast / Demo's / Tools&Utilities / HyperCard / CambridgeMedlineTutor / ccMedTut1 / card_44566.txt < prev    next >
Encoding:
Text File  |  1993-04-19  |  6.5 KB  |  304 lines

  1. -- card: 44566 from stack: in
  2. -- bmap block id: 44982
  3. -- flags: 0000
  4. -- background id: 11419
  5. -- name: 
  6. ----- HyperTalk script -----
  7. --Hidden field - card field id 21
  8.  
  9. --Handlers below are not very elegant, but they work - should be able to put the EnterInField script as part of On ArrowKey handler, under option that goes to next card, but I can't get this to work - does work this way, mapping arrow action to another handler - Chose Enter InField just because it's a handler that won't ever be used for any thing else [in fact, can't be used for most part, because stack is pro tected & user can't get cursor in field]
  10.  
  11. On ArrowKey which
  12.   if which is "right" then EnterInField
  13.   else if which is "down" then beep
  14.   else if which is "left" then beep
  15.   else if which is "up" then beep
  16. End ArrowKey
  17.  
  18. On EnterInField
  19.   global x
  20.   lock screen
  21.   go next
  22.   hide card field "red"
  23.   unlock screen
  24.   wait x
  25.   lock screen
  26.   show card field "red"
  27.   unlock screen with dissolve
  28. End EnterInField
  29.  
  30.  
  31.  
  32. -- part 1 (field)
  33. -- low flags: 00
  34. -- high flags: 0000
  35. -- rect: left=78 top=140 right=159 bottom=391
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 0 / 0
  38. -- text alignment: 0
  39. -- font id: 0
  40. -- text size: 12
  41. -- style flags: 2048
  42. -- line height: 16
  43. -- part name: 
  44.  
  45.  
  46. -- part 2 (field)
  47. -- low flags: 00
  48. -- high flags: 0000
  49. -- rect: left=389 top=161 right=179 bottom=500
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 0 / 0
  52. -- text alignment: 0
  53. -- font id: 0
  54. -- text size: 12
  55. -- style flags: 2048
  56. -- line height: 16
  57. -- part name: 
  58.  
  59.  
  60. -- part 20 (field)
  61. -- low flags: 00
  62. -- high flags: 0000
  63. -- rect: left=149 top=270 right=288 bottom=212
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 0
  67. -- font id: 0
  68. -- text size: 12
  69. -- style flags: 2048
  70. -- line height: 16
  71. -- part name: 
  72.  
  73.  
  74. -- part 21 (field)
  75. -- low flags: 00
  76. -- high flags: 0004
  77. -- rect: left=5 top=189 right=243 bottom=478
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 0
  81. -- font id: 3
  82. -- text size: 12
  83. -- style flags: 0
  84. -- line height: 16
  85. -- part name: red
  86.  
  87.  
  88. -- part 22 (field)
  89. -- low flags: 00
  90. -- high flags: 0000
  91. -- rect: left=31 top=140 right=158 bottom=74
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 0 / 0
  94. -- text alignment: 0
  95. -- font id: 0
  96. -- text size: 12
  97. -- style flags: 2048
  98. -- line height: 16
  99. -- part name: 
  100.  
  101.  
  102. -- part 23 (field)
  103. -- low flags: 00
  104. -- high flags: 0000
  105. -- rect: left=31 top=100 right=118 bottom=74
  106. -- title width / last selected line: 0
  107. -- icon id / first selected line: 0 / 0
  108. -- text alignment: 0
  109. -- font id: 3
  110. -- text size: 12
  111. -- style flags: 256
  112. -- line height: 16
  113. -- part name: 
  114.  
  115.  
  116. -- part 24 (field)
  117. -- low flags: 00
  118. -- high flags: 0000
  119. -- rect: left=78 top=100 right=119 bottom=391
  120. -- title width / last selected line: 0
  121. -- icon id / first selected line: 0 / 0
  122. -- text alignment: 0
  123. -- font id: 3
  124. -- text size: 12
  125. -- style flags: 256
  126. -- line height: 16
  127. -- part name: 
  128.  
  129.  
  130. -- part 25 (field)
  131. -- low flags: 00
  132. -- high flags: 0000
  133. -- rect: left=395 top=100 right=118 bottom=495
  134. -- title width / last selected line: 0
  135. -- icon id / first selected line: 0 / 0
  136. -- text alignment: 0
  137. -- font id: 3
  138. -- text size: 12
  139. -- style flags: 256
  140. -- line height: 16
  141. -- part name: 
  142.  
  143.  
  144. -- part 26 (field)
  145. -- low flags: 00
  146. -- high flags: 0000
  147. -- rect: left=153 top=161 right=179 bottom=394
  148. -- title width / last selected line: 0
  149. -- icon id / first selected line: 0 / 0
  150. -- text alignment: 0
  151. -- font id: 0
  152. -- text size: 12
  153. -- style flags: 2048
  154. -- line height: 16
  155. -- part name: 
  156.  
  157.  
  158. -- part 27 (field)
  159. -- low flags: 00
  160. -- high flags: 0000
  161. -- rect: left=78 top=80 right=99 bottom=391
  162. -- title width / last selected line: 0
  163. -- icon id / first selected line: 0 / 0
  164. -- text alignment: 0
  165. -- font id: 3
  166. -- text size: 12
  167. -- style flags: 256
  168. -- line height: 16
  169. -- part name: 
  170.  
  171.  
  172. -- part 28 (field)
  173. -- low flags: 00
  174. -- high flags: 0000
  175. -- rect: left=31 top=80 right=98 bottom=74
  176. -- title width / last selected line: 0
  177. -- icon id / first selected line: 0 / 0
  178. -- text alignment: 0
  179. -- font id: 3
  180. -- text size: 12
  181. -- style flags: 256
  182. -- line height: 16
  183. -- part name: 
  184.  
  185.  
  186. -- part 29 (field)
  187. -- low flags: 00
  188. -- high flags: 0000
  189. -- rect: left=395 top=80 right=98 bottom=495
  190. -- title width / last selected line: 0
  191. -- icon id / first selected line: 0 / 0
  192. -- text alignment: 0
  193. -- font id: 3
  194. -- text size: 12
  195. -- style flags: 256
  196. -- line height: 16
  197. -- part name: 
  198.  
  199.  
  200. -- part 30 (field)
  201. -- low flags: 00
  202. -- high flags: 0000
  203. -- rect: left=31 top=120 right=138 bottom=74
  204. -- title width / last selected line: 0
  205. -- icon id / first selected line: 0 / 0
  206. -- text alignment: 0
  207. -- font id: 3
  208. -- text size: 12
  209. -- style flags: 256
  210. -- line height: 16
  211. -- part name: 
  212.  
  213.  
  214. -- part 31 (field)
  215. -- low flags: 00
  216. -- high flags: 0000
  217. -- rect: left=78 top=120 right=139 bottom=391
  218. -- title width / last selected line: 0
  219. -- icon id / first selected line: 0 / 0
  220. -- text alignment: 0
  221. -- font id: 3
  222. -- text size: 12
  223. -- style flags: 256
  224. -- line height: 16
  225. -- part name: 
  226.  
  227.  
  228. -- part 32 (field)
  229. -- low flags: 00
  230. -- high flags: 0000
  231. -- rect: left=395 top=120 right=138 bottom=495
  232. -- title width / last selected line: 0
  233. -- icon id / first selected line: 0 / 0
  234. -- text alignment: 0
  235. -- font id: 3
  236. -- text size: 12
  237. -- style flags: 256
  238. -- line height: 16
  239. -- part name: 
  240.  
  241.  
  242. -- part contents for card part 1
  243. ----- text -----
  244. "BODY IMAGE"[MJ,MN] AND "DIET,    REDUCING 
  245.  
  246. -- part contents for card part 2
  247. ----- text -----
  248.     9 [MED88]1988]
  249.  
  250. -- part contents for card part 20
  251. ----- text -----
  252. Search
  253.  
  254. -- part contents for card part 21
  255. ----- text -----
  256.    The search retrieved 9 articles on BODY IMAGE and DIET, REDUCING. To display the first one of these citations, use the DISPLAY command - Move the highlight to Display by hitting the right arrow key ...
  257.  
  258. -- part contents for card part 22
  259. ----- text -----
  260. #4:
  261.  
  262. -- part contents for card part 23
  263. ----- text -----
  264. #2
  265.  
  266. -- part contents for card part 25
  267. ----- text -----
  268. 156 [MED88]
  269.  
  270. -- part contents for card part 26
  271. ----- text -----
  272. REDUCING" [MJ,MN] . . . . . . . . .
  273.  
  274. -- part contents for card part 28
  275. ----- text -----
  276. #1
  277.  
  278. -- part contents for card part 29
  279. ----- text -----
  280. 767 [MED88]
  281.  
  282. -- part contents for card part 30
  283. ----- text -----
  284. #3
  285.  
  286. -- part contents for card part 24
  287. ----- text -----
  288. "BODY IMAGE" [MJ,MN]  . . . . . . . . . . . . . . . .
  289.  
  290. -- part contents for card part 27
  291. ----- text -----
  292. ASPIRIN [TI,MJ,MN,AB]  . . . . . . . . . . . . . . . .
  293.  
  294. -- part contents for card part 31
  295. ----- text -----
  296. "DIET, REDUCING" [MJ,MN] . . . . . . . . . . . . . .
  297.  
  298. -- part contents for card part 32
  299. ----- text -----
  300. 173 [MED88]
  301.  
  302. -- part contents for background part 3
  303. ----- text -----
  304. Search Menu